home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / PetWings / petwings.exe / PetWings.exe / RCDATA / 261 < prev    next >
Text File  |  1999-08-04  |  588b  |  50 lines
  1. //-------- BUTTERFLY --------
  2.  
  3. LABEL 1
  4.  
  5. SPEED 5
  6.  
  7. // Move to my chara
  8. GOSUB 2
  9.  
  10. // Stop
  11. REPEAT 8
  12. SET_FRAME 0
  13. STOP 2
  14. SET_FRAME 1
  15. STOP 2
  16. REPEAT_END
  17.  
  18. SHOOT 9
  19.  
  20. REPEAT 3
  21. SET_FRAME 0
  22. STOP 2
  23. SET_FRAME 1
  24. STOP 2
  25. REPEAT_END
  26.  
  27. // Move to my chara
  28. GOSUB 2
  29.  
  30. REPEAT 8
  31. SET_FRAME 0
  32. STOP 2
  33. SET_FRAME 1
  34. STOP 2
  35. REPEAT_END
  36.  
  37. GOTO_LABEL 1
  38.  
  39. //-------- Move towards MyChara
  40. LABEL 2
  41.   DIRECTION_TO_MYCHARA 7
  42.   REPEAT 9
  43.     SET_FRAME 0
  44.     MOVE 2
  45.     SET_FRAME 1
  46.     MOVE 2
  47.   REPEAT_END
  48. RETURN
  49.  
  50. //========================= END OF FILE =================================